Celestin Apprentice 5/Apprentice-Release5.iso/Source Code/C/Applications/GW AdaEd 1.4.2/GWAdaDemos/Spider/DRAW7.ADA

Text File | 1994-01-11 | 264b | 14 lines

WITH Spider; USE Spider;
PROCEDURE Drawing7 IS
BEGIN
Start;
Red;
WHILE NOT AtWall LOOP -- the WHILE statement starts the loop
     Step; --  any statements here are repeated
END LOOP;
Green;  --  then execution proceeds from here
Turn;
Step;
Quit;
END Drawing7;